Beginning Mac Programming/Beginning Mac Programming.bin/pc/Open Me for REALbasic 3/REALbasic 3.2/Goodies/Development Tools/XCMDs and XFCNs/Text/NumStringer XFCN 1.0/cards.xml

Text File | 1996-09-02 | 4.7 KB | 117 lines

card_2941.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>2941</id>
    <filler1>0</filler1>
    <bitmap>BMAP_2158.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2672</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3235.css" />
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>1</left>
            <top>82</top>
            <right>511</right>
            <bottom>309</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>4</left>
            <top>54</top>
            <right>118</right>
            <bottom>76</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>NumStringer</name>
        <script>on mouseUp
answer numstringer(random(1000),4)
end mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>419</left>
            <top>21</top>
            <right>461</right>
            <bottom>61</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>257</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text><span class="style1">umStringer is a function that takes two parameters. The first parameter is a number that will be operated on. The second parameter is the number of digits that the first number should occupy. If the first parameter has fewer digits than the second parameter, the result will be the first parameter padded with leading zeros to fill all the digits. If the first parameter has more digits than the second parameter, the result will be the first parameter. I've found this useful in applications where I needed to serialize a set of documents and could simply append a number, and still keep them in order.

</span><span class="style2">Examples</span><span class="style1">
    NumStringer(999,4)           -> 0999
    NumStringer(1234,4)          -> 1234
    "Doc#" & NumStringer(99,3)   -> Doc#099

Click on and/or examine the script of the button above to see how it works!

This external is free for purely personal use. A license fee of $10.00 is required if you use this external in any “in-house” corporate, shareware or freeware products. The license fee for unlimited commercial use in a SINGLE “for sale” product is $25.00. The license fee for unlimited commercial use with MULTIPLE products is $100.00.

Permission is hereby granted to all groups who distribute demo software, either for profit (such as EduCorp) or not for profit (such as a Macintosh Users Group), to include this file in their collection. My goal is to get as much exposure for my products as possible, and I believe that these groups offer an invaluable service to shareware publishers like myself.

If you have questions or comments we can be reached through the following:

Iverson Software Co.          507.625.7355
522 Record St.                [e-mail]
Mankato MN  56001-2546        http://prairie.lakes.com/~j5rson/
</span></text>
    </content>
    <name></name>
    <script></script>
</card>